home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 85 / 085.d81 / encrypt boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  972b  |  27 lines
  1. 5 ifathen26
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 gosub70
  4. 25 ifa=0thena=1:load"i-prg c000",dv,1
  5. 26 ifa=1thena=2:load"filecrypt.o",dv,1
  6. 27 ifa=2thena=3:load"crypt help",dv,1
  7. 30 print"[144]":print""
  8. 40 print "p[207]44,16:p[207]43,1:p[207]16*256,0:load";chr$(34);f$;chr$(34)","dv":"
  9. 50 print"run:"
  10. 60 poke631,13:poke632,13:poke198,2:end
  11. 70 print"[147]":poke53280,0:poke53281,0:iffthenreturn
  12. 80 poke214,10:print"[145]";
  13. 85 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
  14. 90 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
  15. 100 fori=217to242:pokei,peek(i)or128:next
  16. 110 poke214,12:print"[145]"tab(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  17. 120 fori=1to7:printtab(2)"[155]                                    [146][223]":next
  18. 130 printtab(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
  19. 140 print"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
  20. 150 poke214,14:print"[145][155]";
  21. 160 fori=1to5:reada$:gosub170:next:goto180
  22. 170 printspc(20-len(a$)/2)""a$:a$="":return
  23. 180 f$="encrypt":poke214,24:print"[145]"spc(13)"[158][204] [207] [193] [196] [201] [206] [199]":return
  24. 190 data"[197][160][206][160][195][160][210] [217] [208] [212] [207] [210]","by [205]arty [205]atthews"
  25. 200 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #85","[211]ubscriptions 1-800-831-2694"
  26. 210 data"[195]opyright ([195]) 1991 [211]oftdisk"
  27.